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CeeeeeeeeeeeeeeeeeeeeeeeeeeeekkeeeeeeeeeeeeeeeteeeeeeeeeteeereeeeeeeeeeeP(890010 
Ceeves P08900¢0 
Ceeeee DPSIN = 089 P0890030 
Ceveee P0890040 
CeeeeeerereeeeraeereeeereeeeekeeteeeeekeneeteeeeereeeeetererereeereeeseeeP 890050 
Creeee GENERAL PURPOSE ASA REFPO 44 f 9 
C(eteee TO TEST BASIE EXTERNAL FUNCTION =- DSIN - 8.3. a's $44 0 
Creare TRIGONOMETRIC sine - TYPE DOUBLE PRECISION TABLE 4P 44444 
Cereee SAME AS SEGMENT [88 EXCEPT D.P. P0890090 
Ceeeee INTRINSIC FUNCTION DSIGN ASSUMED WORKING at $458} 
Creeee ARGUMENTS FROM 0 TO 2 PI P0890110 
Ceeeee P089 190 
Ceeeee SPECIFICATIONS SEGMENT 089 P08901 
Ceeene Paty $29 
Ceeeer WHEN EXECUTING ONLY SEGMENT 089, THE SPECIFICATION STATEMENTS P0Q01205 
Ceeere WHICH APPEAR AS ate gad CARDS MUST HAVE THE C= P001 2 
oe IN COLUMNS 1 AND REMOVED. 8 ! 
C= DOUBLE PRECISION AVD, BvD, CVD, DVD, EVD, PIVD, XVD, FVD. GVD eS 1 i 
PROGRAM UETFORTO2 
an PRECISION AVD, BVD, CVD, DVD, EVD, PIVD, XVD, FVD, GVD . 01208 
ceaee OUTPUT TAPE _ ASSIGNMENT STATEMENT. NO INPUT TAPE. . a6t40 
tee 
Ceeeee WHEN EXECUTING ONLY SEGMENT 089, THE FOLLOWING STATEMENT P 71783 
Ceeeee NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. P00717 : 
C= NUVI = P007179 
NUVI = 6 P 7) 
eteeee Pp $9 
90 _FORMAT(15H1 DPSIN = (089)//32H BASIC EXTERNAL FUNCTION -DSIN- P 38 
1//33H (TRIGONOMETRIC SINE -TYPE D.P.) P089016 
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COPYRIGHT (c) 1978 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORD 
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AND 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS 


PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT I 
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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


NOT SUPPLIED BY DIGITAL. 
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UETFORTO2 +48 9 4:33:33 VAX-11 FORTRAN a teat page 3 
-Sep-1984 20:39:11 DI SKSVMSMAS TER: betP. SecIUETFORTO2. FOR; 
PROGRAM SECTIONS 
Name Bytes Attributes 
CODE 01 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 11 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 96 PIC CON REL LCL NOSHR NOEXE RD WRT QUAD 
Total Space Allocated 1408 
ENTRY POINTS » 
Address Type Name 
0-00000000 UETFORTO2 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
2-00000000 R*8 AVD 2-00000008 R*8 BVD SHS 49h: R*8 CVD am 4 44 4 R*8 DVD 
s~proenss R*8 EVD mS 4 4: R*8 FVD -00000040 R*8 GVD -00000048 I*4 NUVI 
-00000028 R*8 PIVD 00000030 R*8 xvDd 
LABELS 
Address Label Address’ Label Address Label Address’ Label Address Label Address’ Label 
1-00000000 890' 1-000000B8D 891° 1-QQ00000EE 892' 1-0000011F 893° 1-00000150 §94' 1-00000181 895° 
1-000001B2 896' 1-Q000001E3 897° 1-00000214 898' 1-00000245 899° 1-00000276 7890' 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
R*8 MTHSDSIGN R*8 MTHSDSIN 


CCMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:UVETFORTO2/0BJ=0BJ$:UETFORTO2 MSR7S:VETFORTO2 


/ CHE CK=(NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOL§, TRACEB atk) 
/STANDARD=(NOSY 


AR YNTAX,NO 
/SHOW= (NOPREPROCESSOF, ROLNCLODE HA 
/F77 /NOG_FLOATING /14 SbPTIATZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


UETFORTO2 


COMPILATION STATISTICS 


Run Time: 1.93 seconds 
Elapsed Time: ; 96 seconds 
Page Faults: 69 

Dynamic Memory: 168 pages 
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